home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / FindNextNew.zprx < prev    next >
Text File  |  1995-03-09  |  915b  |  30 lines
  1. /*
  2.     $VER: FindNextNew.zprx 1.3 (31.1.94) by Ralph Seichter
  3.     ARexx script for Zodiac's Point 3.7.
  4.  
  5.     This script jumps into the board list and locates the
  6.     next board containing new messages (if any) and then
  7.     moves into this board. I suggest you to bind this script
  8.     to an F-Key, e.g. by adding the entry
  9.  
  10.         F1:SYS:Rexxc/RX ZP:Rexx/FindNextNew.zprx %s
  11.  
  12.     to your "fkeys.zp" file.
  13. */
  14.  
  15. PARSE ARG zpPort        /* Get ARexx port name */
  16. ADDRESS VALUE zpPort    /* and address this port. */
  17. OPTIONS RESULTS         /* We expect results. */
  18.  
  19. whichlevel              /* Where are we? */
  20. IF (RESULT ~= "BOARDMENU") THEN
  21.     boardmenu           /* Step into board menu. */
  22.  
  23. jumptonew down  /* Find next board below with new messages. */
  24. IF (RC) THEN    /* RC = 1 only if such a board B is found. */
  25.     enterboard  /* Step into board B. */
  26. ELSE
  27.     requestnotify 'No more new messages!'
  28.  
  29. /* EOF */
  30.